#!/usr/bin/perl

use warnings;
use strict;

my $c = "1";
open(FILE, "> /tmp/fifo-test");
while (1) {
	print(FILE "$c");
	system("sync");
	sleep(1);
	$c = $c + 1;

}
close(FILE);

